﻿Imports System.Windows.Forms

Public Class DlgRptSelection
    Dim Strsql As String
    Dim mysql As New ClsSQLhelper

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        If Me.CboReport.Text = "" Then Exit Sub
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        frmRptProrder.MyReportname = Me.CboReport.Text
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
    End Sub

    Private Sub DlgRptSelection_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Dim DS_Site As New DataSet
        'Strsql = "Select siteid,site from site order by site"
        'DS_Site = MySql.GetMYSQLDataset(Strsql, "DSSite", "Site")
        With CboReport
            .Items.Clear()
            .Items.Add("RptLabOrder")
            .Items.Add("RptProrder")
            '.DataSource = DS_Site.Tables(0)
            '.DisplayMember = "site"
            '.ValueMember = "siteid"
            '.SelectionStart = 0
            'If My.Settings.CurrentSite <> "" Then
            ' .SelectedValue = My.Settings.CurrentSite
            ' End If
        End With

    End Sub
End Class
